home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok20.lha / ComplexLib / txt / LongComplexLib.def < prev    next >
Text File  |  1993-08-15  |  3KB  |  92 lines
  1.  
  2. (*********************************************************************
  3.  
  4.     :Program.       LongComplexLib.def
  5.     :Author.        Gary Struhlik  
  6.     :Address.    -
  7.     :Phone.      -
  8.     :shortcut.      [gs]
  9.     :Version.       1.0   
  10.     :Date.          08.10.1988
  11.     :Copyright.  PD
  12.     :Language.      Modula-II
  13.     :Translator. M2Amiga
  14.     :Imports.     LongMathLibExt [gs]
  15.     :UpDate.     -
  16.     :Contents.   Dieses Modul unterstützt das Rechnen mit komplexen Zahlen 
  17.     :Contents.   Es werden die Grundrechenarten und wichtige mathematische
  18.     :Contents.   Funktionen zur Verfügung gestellt, welche in den Bereichen
  19.     :Contents.   Naturwissenschaft und Technik häufig benötigt werden.
  20.     :Remark.     Für den Amiga Modula-2 Klub / Stuttgart
  21.     :Remark.     Am 01.01.1989 mit M2Amiga 3.2d neu kompiliert
  22.  
  23. **********************************************************************)
  24.  
  25. DEFINITION MODULE LongComplexLib;  (* für LONGREAL *)
  26.  
  27.  
  28. FROM LongMathLibExt IMPORT pi;
  29.  
  30. CONST
  31.     PI = pi;
  32.  
  33. TYPE
  34.     LONGCOMPLEX = RECORD
  35.           RE,IM : LONGREAL
  36.         END;        
  37.  
  38. PROCEDURE compop (VAR Z:LONGCOMPLEX; A:LONGCOMPLEX; OP:CHAR;
  39.                   B:LONGCOMPLEX); 
  40.  
  41. PROCEDURE conjg (VAR Z : LONGCOMPLEX; A : LONGCOMPLEX); 
  42.  
  43. PROCEDURE cabs (A : LONGCOMPLEX) : LONGREAL; 
  44.  
  45. PROCEDURE carg (A : LONGCOMPLEX) : LONGREAL;    
  46.  
  47. PROCEDURE cpol (VAR Z : LONGCOMPLEX; A : LONGCOMPLEX); 
  48.  
  49. PROCEDURE crec (VAR Z : LONGCOMPLEX; A : LONGCOMPLEX); 
  50.  
  51. PROCEDURE crcp (VAR Z : LONGCOMPLEX; A : LONGCOMPLEX);
  52.  
  53. PROCEDURE cexp (VAR Z : LONGCOMPLEX; A : LONGCOMPLEX); 
  54.  
  55. PROCEDURE cln (VAR Z : LONGCOMPLEX; A : LONGCOMPLEX); 
  56.  
  57. PROCEDURE csqr (VAR Z : LONGCOMPLEX; A : LONGCOMPLEX); 
  58.  
  59. PROCEDURE root (N,X : LONGREAL) : LONGREAL;
  60.  
  61. PROCEDURE csqrt (VAR Z:LONGCOMPLEX; A : LONGCOMPLEX); 
  62.  
  63. PROCEDURE csin (VAR Z : LONGCOMPLEX; A : LONGCOMPLEX); 
  64.  
  65. PROCEDURE carcsin (VAR Z : LONGCOMPLEX; A : LONGCOMPLEX); 
  66.  
  67. PROCEDURE ccos (VAR Z : LONGCOMPLEX; A : LONGCOMPLEX); 
  68.  
  69. PROCEDURE carccos (VAR Z : LONGCOMPLEX; A : LONGCOMPLEX); 
  70.  
  71. PROCEDURE ctan (VAR Z : LONGCOMPLEX; A : LONGCOMPLEX); 
  72.  
  73. PROCEDURE carctan (VAR Z : LONGCOMPLEX; A : LONGCOMPLEX);
  74.  
  75. PROCEDURE csinh (VAR Z : LONGCOMPLEX; A : LONGCOMPLEX); 
  76.  
  77. PROCEDURE carsinh (VAR Z : LONGCOMPLEX; A : LONGCOMPLEX); 
  78.  
  79. PROCEDURE ccosh (VAR Z : LONGCOMPLEX; A : LONGCOMPLEX); 
  80.  
  81. PROCEDURE carcosh (VAR Z : LONGCOMPLEX; A : LONGCOMPLEX); 
  82.  
  83. PROCEDURE ctanh (VAR Z : LONGCOMPLEX; A : LONGCOMPLEX);
  84.  
  85. PROCEDURE cartanh (VAR Z : LONGCOMPLEX; A : LONGCOMPLEX); 
  86.  
  87. PROCEDURE cpower (VAR Z : LONGCOMPLEX; A,B : LONGCOMPLEX); 
  88.  
  89. PROCEDURE croot (VAR Z:LONGCOMPLEX; K,N:LONGREAL; A : LONGCOMPLEX); 
  90.  
  91. END LongComplexLib.
  92.